(sit_for): Call swallow_events.

diff --git a/src/dispnew.c b/src/dispnew.c
index c9a94cf37ed988b22cd7d50d58807ecf71466cc1..25ac26dd951f8c0499b4408a7c5913fd694888ea 100644 (file)
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -2367,6 +2367,8 @@ sit_for (sec, usec, reading, display)
 {
   Lisp_Object read_kbd;
 
+  swallow_events (display);
+
   if (detect_input_pending_run_timers (display))
     return Qnil;